home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)tj.d64 / typy toes.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  8KB  |  210 lines
  1. 0 POKE54296,15:FORL=1TO10:POKEL+54272,0:NEXT:POKE788,52
  2. 1 PRINT"[147]";:POKE53280,12:POKE53281,15:FORI=1024TO1063:POKEI,160:POKEI+54272,2:NEXT
  3. 2 PRINT"";:FORI=1TO22:PRINT"[145] [146]";SPC(38);" [146]":NEXT
  4. 3 POKE1944,160:POKE54272+1944,2:POKE1983,160:POKE54272+1983,2
  5. 4 FORI=1984TO2023:POKEI,160:POKEI+54272,2:NEXT:POKE54296,15
  6. 5 PRINT"TYPY TOES"
  7. 6 PRINT"[154]         BY SYD BOLTON"
  8. 7 PRINT"[144]COPYRIGHT (C) 1984 BY"
  9. 8 PRINT"OSTON SOFTWARE":PRINT"HIT A KEY OR WAIT";
  10. 9 FORI=1TO3000:GETA$:IFA$=""THENNEXT
  11. 18 POKE56,48:CLR:HS$="SYD":HS=200
  12. 19 POKE53280,12:POKE53281,0
  13. 20 PRINT"[147]":PRINT"[158]                TYPY TOES[146]"
  14. 30 PRINT"    HI THERE! WELCOME TO TYPY TOES"
  15. 40 PRINT"    THE GAME WHERE YOU IMPROVE YOUR"
  16. 50 PRINT"      T Y P I N G  S K I L L S !"
  17. 60 GOSUB50000
  18. 62 IFPEEK(12584)=229THENPOKE53272,(PEEK(53272)AND240)OR12:GOTO90
  19. 63 PRINT"           [154]ONE MOMENT PLEASE"
  20. 64 FORI=49152TO49235:READA:POKEI,A:NEXT
  21. 66 POKE53272,(PEEK(53272)AND240)OR12:SYS49152
  22. 67 READA:IFA=-1THEN90
  23. 68 FORI=0TO7:READB:POKE12288+A*8+I,B:NEXT:GOTO67
  24. 90 PRINT"[155]"
  25. 95 INPUT"WHAT'S YOUR NAME";N$
  26. 110 PRINT"[158]THANK YOU ";N$;"!":GOSUB50000
  27. 111 PRINT"[145]                              "
  28. 112 INPUT"[145][155]SKILL LEVEL [1-4]";SL
  29. 113 IFSL<1ORSL>4THEN111
  30. 114 IFSL=1THENL$="                              ":U=31:SL=100:G=31:G$=L$
  31. 115 IFSL=2THENL$="                         ":U=26:SL=200:G=26:G$=L$
  32. 116 IFSL=3THENL$="                    ":U=21:SL=300:G=21:G$=L$
  33. 117 IFSL=4THENL$="                ":U=16:SL=400:G=16:G$=L$
  34. 120 GOSUB50000:
  35. 130 POKE53281,15
  36. 131 PRINT"[147]";"  THE LETTER ON THE SCREEN THAT TURNS"
  37. 135 PRINT"                  "
  38. 140 PRINT" REVERSE, LIKE  K [146] IS THE LETTER ON "
  39. 145 PRINT"                  "
  40. 150 PRINT" THE KEYBOARD THAT YOU PRESS. OKAY?"
  41. 160 PRINT"  YOU HAVE A TIME LIMIT, SO HURRY!"
  42. 161 PRINT"  TO END THE GAME AT ANY TIME PRESS '_'"
  43. 162 PRINT"  TO PAUSE, PRESS SHIFT/LOCK"
  44. 165 Y$="Y"
  45. 170 INPUT"[144] ARE YOU READY";Y$:IFLEFT$(Y$,1)="Y"THEN181
  46. 180 PRINT"HURRY UP AND GET READY!!!!":GOTO170
  47. 181 POKE53281,15
  48. 182 W$="[145]                                        "
  49. 183 PRINT"";:FORI=1TO4:PRINTW$:NEXT
  50. 188 Q$="[145][181]                                      [167]"
  51. 189 PRINT"[151]"
  52. 190 PRINT"[207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]"
  53. 192 PRINT"[145][181]  [196] COMMODORE[146] 64[146]              POWER[146] [209][151] [167]"
  54. 195 PRINTQ$
  55. 200 PRINT"[145][181]_ 1 2 3 4 5 6 7 8 9 0 + - \ [211][212] [193][194]   F1[170]"
  56. 210 PRINT"[145][181]                            [179][180] [161][162]     [167]"
  57. 220 PRINT"[145][181]() Q W E R T Y U I O P @ * ^ RSTR   F3[167]"
  58. 225 PRINTQ$
  59. 230 PRINT"[145][181]%& [164][165][166] A S D F G H J K L : ; = RTN  F5[167]"
  60. 235 PRINT"[145][181][197][198] [199][200]                                 [167]"
  61. 240 PRINT"[145][181][196] [164][165][166] Z X C V B N M < > ? [164][165][166] ^ _   F7[167]"
  62. 245 PRINTQ$
  63. 250 PRINT"[145][181]      [207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]             [167]"
  64. 255 PRINT"[145][181]      [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]             [167]"
  65. 260 PRINT"[145][204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]"
  66. 265 FORI=1TO5:PRINTW$:NEXT:PRINT"[145][145]"
  67. 270 FORI=0TO39:POKE1944+I,160:POKE1984+I,160:POKE56216+I,6:POKE56256+I,6:NEXT
  68. 280 E=(40-(11+LEN(N$)))/2:PRINT"";TAB(E)"";N$;"'S COMPUTER"
  69. 285 SC=0
  70. 290 GOSUB40000
  71. 500 W=INT(RND(1)*26)+1:J=0:U=G:L$=G$:POKE198,0
  72. 505 PRINT"";L$;"   [146]":T$=""
  73. 510 IFW=1THENR=9:C=4:A$="Q":GOTO1000
  74. 520 IFW=2THENR=9:C=6:A$="W":GOTO1000
  75. 530 IFW=3THENR=9:C=8:A$="E":GOTO1000
  76. 540 IFW=4THENR=9:C=10:A$="R":GOTO1000
  77. 550 IFW=5THENR=9:C=12:A$="T":GOTO1000
  78. 560 IFW=6THENR=9:C=14:A$="Y":GOTO1000
  79. 570 IFW=7THENR=9:C=16:A$="U":GOTO1000
  80. 580 IFW=8THENR=9:C=18:A$="I":GOTO1000
  81. 590 IFW=9THENR=9:C=20:A$="O":GOTO1000
  82. 600 IFW=10THENR=9:C=22:A$="P":GOTO1000
  83. 610 IFW=11THENR=11:C=8:A$="A":GOTO1000
  84. 620 IFW=12THENR=11:C=10:A$="S":GOTO1000
  85. 630 IFW=13THENR=11:C=12:A$="D":GOTO1000
  86. 640 IFW=14THENR=11:C=14:A$="F":GOTO1000
  87. 650 IFW=15THENR=11:C=16:A$="G":GOTO1000
  88. 660 IFW=16THENR=11:C=18:A$="H":GOTO1000
  89. 670 IFW=17THENR=11:C=20:A$="J":GOTO1000
  90. 680 IFW=18THENR=11:C=22:A$="K":GOTO1000
  91. 690 IFW=19THENR=11:C=24:A$="L":GOTO1000
  92. 700 IFW=20THENR=13:C=7:A$="Z":GOTO1000
  93. 710 IFW=21THENR=13:C=9:A$="X":GOTO1000
  94. 720 IFW=22THENR=13:C=11:A$="C":GOTO1000
  95. 730 IFW=23THENR=13:C=13:A$="V":GOTO1000
  96. 740 IFW=24THENR=13:C=15:A$="B":GOTO1000
  97. 750 IFW=25THENR=13:C=17:A$="N":GOTO1000
  98. 760 IFW=26THENR=13:C=19:A$="M":GOTO1000
  99. 770 GOTO500
  100. 1000 P=1024+R*40+C:O=PEEK(P):POKEP,O+128:POKEP+54272,6
  101. 1001 POKEP-40,160:POKEP-40+54272,6:POKEP-39,160:POKEP-39+54272,6
  102. 1002 POKEP-41,160:POKEP-41+54272,6:POKEP-1,160:POKEP-1+54272,6
  103. 1003 POKEP+1,160:POKEP+1+54272,6:POKEP+39,160:POKEP+39+54272,6
  104. 1004 POKEP+40,160:POKEP+40+54272,6:POKEP+41,160:POKEP+41+54272,6
  105. 1010 GETT$:IFT$=A$THENGOTO1100
  106. 1011 IFPEEK(653)=1THEN1011
  107. 1015 IFT$=""THENU=U-1:L$=LEFT$(L$,U):IFU=1THEN1030
  108. 1025 PRINT"";L$;"   [146]"
  109. 1026 IFT$=""THENGOTO1010
  110. 1027 IFT$="_"THENGOTO5000
  111. 1028 POKE198,0
  112. 1030 POKE54296,15:POKE54277,45:POKE54278,165
  113. 1040 POKE54276,33:POKE54273,6:POKE54272,5
  114. 1050 FORI=1TO200:NEXT:POKE54276,32:POKE54273,0:POKE54272,0:SC=SC-10:IFSC<-500THEN7000
  115. 1060 IFU=<2THENPOKEP,O:POKEP-39,32:POKEP-40,32:POKEP-41,32:POKEP-1,32:POKEP+1,32:POKEP+39,32
  116. 1065 IFU=<2THENPOKEP+40,32:POKEP+41,32:POKEP+54272,11:GOSUB40000:GOTO500
  117. 1070 GOSUB40000:GOTO1010
  118. 1100 POKE54296,15:POKE54277,0:POKE54278,247
  119. 1105 POKE54276,17:POKE54273,40:POKE54272,0
  120. 1110 FORI=1TO100:NEXT:POKE54276,16
  121. 1140 POKEP,O:POKEP-39,32:POKEP-40,32:POKEP-41,32:POKEP-1,32:POKEP+1,32:POKEP+39,32:POKEP+40,32
  122. 1145 POKEP+41,32:POKEP+54272,11
  123. 1149 SC=SC+10:IFSC=SLTHENGOTO2000
  124. 1150 B=B+U:GOSUB40000:GOTO500
  125. 2000 POKE53280,0:POKE53281,0:PRINT"[147]";
  126. 2010 FORI=1TO12:POKE646,I:PRINT"     Y O U  D I D  I T  ! ! ! ! ! !":
  127. 2015 FORK=1TO200:NEXT:NEXT
  128. 2020 GOSUB50000
  129. 2030 FORI=0TO39:POKE1424+I,60:POKEI+55696,1:FORK=1TO60:NEXT:POKE1424+I,32:NEXT
  130. 2040 PRINT"[155]CONGRATULATIONS!!"
  131. 2045 FORI=1TO2000:NEXT:FS=FS+SC
  132. 2050 PRINT"[147]";:POKE53280,12:POKE53281,15:PRINT"[147]"
  133. 2060 SI=54272:W1=SI+4:W3=SI+18:V=SI+24:PW=SI+27:PE=SI+28
  134. 2065 FORI=SITOPE-10:POKEI,0:NEXT
  135. 2070 POKEW1+1,17:POKEW1+2,251:POKEW3+1,187:POKEW3+2,140
  136. 2075 POKEV,143:POKEW3,17:POKEW3-3,15:POKEW1,17
  137. 2080 POKEW3,129
  138. 2085 FORI=1TO100:POKE54273,PEEK(54299)/7+35:POKE646,I:PRINT"";TAB(15);"GET READY!":NEXT
  139. 2090 POKEW1,0:POKEW3,0
  140. 2095 PRINT"               [144]GET READY!"
  141. 2110 SL=SL+100:IFSL=1100THENSL=1000
  142. 2115 B=INT(B/5)
  143. 2120 PRINT"BONUS:":FORI=1TOB:PRINT""I
  144. 2130 POKE54296,15:POKE54277,0:POKE54278,247:POKE54276,17:POKE54273,40:POKE54272,0
  145. 2140 FORT=1TO5:NEXT:POKE54276,16:FORT=1TO5:NEXT:NEXT
  146. 2150 FORI=1TO1000:NEXT:FS=FS+B:GOTO181
  147. 5000 POKE53280,12:POKE53281,15:PRINT"[147][144]              END OF GAME"
  148. 5010 FS=FS+SC:IFFS>HSTHENHS=FS:HS$=N$:PRINT"";TAB(11);"A NEW HIGH SCORE":GOSUB50000
  149. 5020 PRINT"HIGH SCORE:[146]";HS:PRINT"[145]HELD BY:[146] ";HS$
  150. 5025 PRINT"YOUR SCORE:";"[146]";FS
  151. 5030 INPUT"[144]DO YOU WANT TO PLAY AGAIN";Y$:IFLEFT$(Y$,1)="Y"THENGOTO19
  152. 5040 INPUT"COME ON, PLEASE";Y$:IFLEFT$(Y$,1)="Y"ORLEFT$(Y$,1)="O"THENGOTO19
  153. 5050 POKE53281,6:POKE53280,14:PRINT"[147][154]";:END
  154. 7000 PRINT"[147][144]IT SEEMS TO ME, ";N$
  155. 7010 PRINT"THAT YOU ARE HAVING A BIT OF A"
  156. 7020 PRINT"PROBLEM WITH THIS GAME."
  157. 7030 PRINT"MAYBE YOU SHOULD REDUCE THE "
  158. 7040 PRINT"SKILL LEVEL OR LEARN TO "
  159. 7050 PRINT"RECOGNIZE SYMBOLS BETTER. OK?"
  160. 7055 POKE198,0
  161. 7060 Y$="Y":INPUT"DO YOU WANT TO TRY AGAIN";Y$:IFMID$(Y$,1)="Y"THEN181
  162. 7070 Y$="N":INPUT"ARE YOU SURE[146]";Y$:IFMID$(Y$,1)="N"THEN181
  163. 7080 POKE53281,6:POKE53280,14:PRINT"[147][154]":END
  164. 40000 PRINT"";N$;"'S SCORE:";"    ";
  165. 40010 PRINT"[157][157][157][157]";"[144]";SC
  166. 40020 PRINT"TIME REMAINING:"
  167. 40030 RETURN
  168. 50000 POKE54296,15:RESTORE:POKE54291,128:POKE54292,0:POKE54288,128
  169. 50010 FORI=1TO12
  170. 50020 READH:READL:POKE54290,65:POKE54287,H:POKE54286,L:FORK=1TO100:NEXT:POKE54290,6
  171. 50030 NEXT
  172. 50050 RETURN
  173. 55000 DATA34,75,36,85,38,126,40,200,43,52,45,198,48,127,51,97,54,111,57,172,61
  174. 55010 DATA126,64,188
  175. 60000 DATA120,173,14,220,41,254
  176. 60010 DATA141,14,220,165,1,41
  177. 60020 DATA251,133,1,173,24,208
  178. 60030 DATA41,14,10,10,133,167
  179. 60040 DATA169,208,133,252,173,0
  180. 60050 DATA221,41,3,73,3,10
  181. 60060 DATA10,10,10,10,10,5
  182. 60070 DATA167,133,254,169,0,133
  183. 60080 DATA251,133,253,168,162,8
  184. 60090 DATA177,251,145,253,200,208
  185. 60100 DATA249,230,252,230,254,202
  186. 60110 DATA208,242,165,1,9,4
  187. 60120 DATA133,1,173,14,220,9
  188. 60130 DATA1,141,14,220,88,96
  189. 63000 DATA037,229,165,229,165,151,000,238,132
  190. 63001 DATA038,080,112,112,112,080,000,238,170
  191. 63002 DATA040,238,132,132,132,228,000,000,000
  192. 63003 DATA041,228,164,228,164,151,000,000,000
  193. 63004 DATA065,234,078,078,078,234,000,103,084
  194. 63005 DATA066,238,132,228,036,228,000,064,064
  195. 63006 DATA068,000,120,134,128,134,120,000,000
  196. 63007 DATA069,228,036,228,000,000,000,000,000
  197. 63008 DATA070,174,168,232,000,000,000,000,000
  198. 63009 DATA071,142,138,138,138,238,000,000,000
  199. 63010 DATA072,234,140,136,140,234,000,000,000
  200. 63011 DATA083,232,136,136,136,238,000,174,170
  201. 63012 DATA084,224,160,224,160,144,000,174,232
  202. 63013 DATA097,086,084,103,000,000,000,000,000
  203. 63014 DATA098,064,064,112,000,000,000,000,000
  204. 63015 DATA100,000,234,138,238,042,234,000,000
  205. 63016 DATA101,000,238,072,076,072,232,000,000
  206. 63017 DATA102,000,224,064,064,064,064,000,000
  207. 63018 DATA115,234,170,174,000,000,000,000,000
  208. 63019 DATA116,172,168,174,000,000,000,000,000
  209. 63999 DATA-1
  210.